home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SELMEMO.PLP < prev    next >
Text File  |  1991-02-24  |  1KB  |  29 lines
  1. /* auto pilot program ｢NEM 2.00｣           1991.2.24   By GOOSE(MAF00070) */
  2. /* %Selmemo  { */
  3. /*  [TITLE] */
  4. /* Selmemo:メモ番号の複数選択結果を文字列で返す｡
  5. **         選択:1,2,3,4 -> "1,2,3,4,No," */
  6.   var selnum[20];selnum:={};
  7.   %getmemon { [TITLE]
  8.     display({★★ 選択されているメモは }|@body(selnum,,{,})|{ です｡\n});
  9.     select(TITLE|{ﾒﾓ番号を選択して下さい｡},
  10.       {60},{selnum:={No,};im({No})},
  11.       { Memo1 },{selnum:=selnum|{1,};im({Yes})},
  12.       { Memo2 },{selnum:=selnum|{2,};im({Yes})},
  13.       { Memo3 },{selnum:=selnum|{3,};im({Yes})},
  14.       { Memo4 },{selnum:=selnum|{4,};im({Yes})},
  15.       { Memo5 },{selnum:=selnum|{5,};im({Yes})},
  16.       { Memo6 },{selnum:=selnum|{6,};im({Yes})},
  17.       { Memo7 },{selnum:=selnum|{7,};im({Yes})},
  18.       { Memo8 },{selnum:=selnum|{8,};im({Yes})},
  19.       { Memo9 },{selnum:=selnum|{9,};im({Yes})},
  20.       { 終了 },{selnum:=selnum|{No,};im({No})},
  21.       { 取消 },{case(selnum={},
  22.                   {Yes},{selnum:={No,};im({No})},
  23.                   {No},{%temp @tail(@body(selnum,,{,}),{,})|{,};
  24.                         selnum:=@body(selnum,,temp);im({Yes})
  25.                        })})
  26.   };
  27.   loop({getmemon(TITLE)});im(selnum)
  28. /* }; */
  29.